;Macro bY SabiK
;ciecie_tkaniny_na_bandaze-eval-hiding-anatomia-jedzenie
;U W A G A !!!
;Przed wlaczeniem skryptu zrob najpierw dana czynnosc recznie
initevents
set #sysmsgcol 1082
event sysmessage Skrypt [ciecie_tkaniny_na_bandaze-eval-hiding-anatomia-jedzenie] odpalony (by SabiK)
wait 1
set %lt #ltargetid
start:
ignoreitem #charid
set %jedz 0 	;Tu ustaw czy skrypt ma jesc (0 - Nie, 1 - Tak)
set %skill 2 	;Tu ustaw jaki skill ma byc robiony z cieciem (0 - Nic, 1 - Madrosc, 2 - Hiding, 3 - Anatomia)

jedzenie:
if %jedz = 0
   goto madrosc
finditem hnd_twi_fwi_ywi_qqd_zpe_uwi_rqe_axi_aqd_gud_qud_uqe_nwi_yrd_zpd_cwe C
set #lobjectid #findid
event macro 17
wait 20

madrosc:
if %skill <> 1
   goto hiding
set #ltargetid %lt
event macro 1 ^ .um madrosc
set %eval 0
czekaj_madrosc:
set %eval %eval + 1
if #targcurs = 1
   goto dalej_madrosc
if %eval > 80
   goto madrosc
goto czekaj_madrosc
dalej_madrosc:
event macro 22
goto ciecie

hiding:
if %skill <> 2
   goto anatomia
event macro 1 ^ .um ukrywanie
set %hid 0
czekaj_hiding:
scanjournal 1
set %hid %hid + 1
if *ukrylas_sie* in #journal
   goto ciecie
if Nie_udalo in #journal
   goto ciecie
if %hid > 80
   goto hiding
goto czekaj_hiding

anatomia:
if %skill <> 3
   goto ciecie
set #ltargetid %lt
event macro 1 ^ .um anatomia
set %anat 0
czekaj_anatomia:
set %anat %anat + 1
if #targcurs = 1
   goto dalej_anatomia
if %anat > 80
   goto anatomia
goto czekaj_anatomia
dalej_anatomia:
event macro 22
goto ciecie


ciecie:
finditem kag C
if #findkind = 0
{
   set #lobjectid #findid
   event macro 17
}
if #findkind = 1
{
   ignoreitem #findid
   goto ciecie
}
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz nozyczek! Skrypt wylaczono!
   halt
}
set %noz 0
czekaj_nozyczki:
set %noz %noz + 1
if #targcurs = 1
   goto dalej_nozyczki
if %noz > 50
   goto ciecie
goto czekaj_nozyczki
dalej_nozyczki:
finditem cui C
if #findkind = 0
{
   set #lobjectid #findid
   event macro 22
}
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz tkaniny! Skrypt wylaczono!
   halt
}
koniec:
if Pocielas in #sysmsg
      goto ciecie2
if Nie_udalo_Ci in #sysmsg
      goto ciecie2
goto koniec


ciecie2:
finditem kag C
if #findkind = 0
{
   set #lobjectid #findid
   event macro 17
}
if #findkind = 1
{
   ignoreitem #findid
   goto ciecie2
}
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz nozyczek! Skrypt wylaczono!
   halt
}
set %noz 0
czekaj_nozyczki2:
set %noz %noz + 1
if #targcurs = 1
   goto dalej_nozyczki2
if %noz > 50
   goto ciecie2
goto czekaj_nozyczki2
dalej_nozyczki2:
finditem cui C
if #findkind = 0
{
   set #lobjectid #findid
   event macro 22
}
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz tkaniny! Skrypt wylaczono!
   halt
}
koniec2:
if Pocielas in #sysmsg
      goto ciecie3
if Nie_udalo_Ci in #sysmsg
      goto ciecie3
goto koniec2


ciecie3:
finditem kag C
if #findkind = 0
{
   set #lobjectid #findid
   event macro 17
}
if #findkind = 1
{
   ignoreitem #findid
   goto ciecie3
}
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz nozyczek! Skrypt wylaczono!
   halt
}
set %noz 0
czekaj_nozyczki3:
set %noz %noz + 1
if #targcurs = 1
   goto dalej_nozyczki3
if %noz > 50
   goto ciecie3
goto czekaj_nozyczki3
dalej_nozyczki3:
finditem cui C
if #findkind = 0
{
   set #lobjectid #findid
   event macro 22
}
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Nie masz tkaniny! Skrypt wylaczono!
   halt
}
koniec3:
if Pocielas in #sysmsg
      goto start
if Nie_udalo_Ci in #sysmsg
      goto start
goto koniec3